null {2}   2 .POKE to PIXEL CHART
   5 NT=0;clear ;print "STOP CASSETTE!";print 
  10 input "input GRAPHIC VALUE:      "A
  15 clear 
  20 %(18124)=A;for B=0to 7;@(B)=PX(B,0);next B
  30 clear ;B=-1;for A=-28to 28step 8;B=B+1;CX=A;CY=0;TV=B+49;box A,0,8,8,@(B)+2;next A
  40 CX=-77;CY=40;goto 10
:return ;run 